home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / EUPHOR10.ZIP;1 / SOUNDEFF.E < prev    next >
Encoding:
Text File  |  1993-01-20  |  1.1 KB  |  62 lines
  1. -- soundeff.e: Sound Effects
  2.  
  3. without warning
  4. global procedure sounde(positive_int effect,
  5.             positive_int duration,
  6.             positive_int nreps)
  7. -- special sound effects
  8. -- do nothing for now
  9. end procedure
  10. with warning
  11.  
  12. global procedure errbeep()
  13. -- error signal
  14.     sound(1000)
  15.     delay(0.1)
  16.     sound(0)
  17. end procedure
  18.  
  19. global procedure explosion_sound()
  20. -- something is destroyed
  21.     for i = 5000 to 10 by -150 do
  22.     sound(rand(i))
  23.     delay(0.01)
  24.     end for
  25.     for i = 10 to 100 by 3 do
  26.     sound(rand(i))
  27.     delay(0.01)
  28.     end for
  29.     sound(0)
  30. end procedure
  31.  
  32. global procedure phasor_sound(atom n)
  33. -- phasor hits enemy with n-unit blast
  34.     for i = 1 to 5 + n/200 do
  35.     sound(1000)
  36.     delay(0.025)
  37.     sound(3000)
  38.     delay(0.025)
  39.     end for
  40.     sound(0)
  41. end procedure
  42.  
  43. global procedure torpedo_sound()
  44. -- torpedo hits enemy
  45.    sound(150)
  46.    delay(0.25)
  47.    sound(0)
  48. end procedure
  49.  
  50. global procedure docking_sound()
  51. -- Enterprise successfully docks with a planet or base
  52.     for i = 1 to 3 do
  53.     sound(2000)
  54.     delay(0.07)
  55.     sound(5000)
  56.     delay(0.07)
  57.     end for
  58.     sound(0)
  59. end procedure
  60.  
  61.  
  62.